VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "EventSink"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' -------------------------------------------------------------------------
' Copyright (C) 1996 Visio Corporation
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Visio has no warranty,
' obligations or liability for any Sample Application Files.
' -------------------------------------------------------------------------

Option Explicit






' VisEventProc - Handles Visio event notifications
'
' Parameters:
'   eventCode      = Event ID.
'   sourceObj   = Reference to the source object of the event.
'   eventID         = The ID of the event in the EventList of the source object.
'   seqNum   = Event sequence ID for this instance of Visio.
'   subjectObj  = A reference to the "subject" object of this event.
'   moreInfo       = Command line string, used for Run Addon Event.
'
Public Sub VisEventProc(eventCode As Integer, sourceObj As Object, eventID As Long, _
                        seqNum As Long, subjectObj As Object, moreInfo As Variant)

Dim strDumpMsg As String
    
    ' Find out which event fired.
    Select Case eventCode
        Case visEvtCodeDocSave
            strDumpMsg = "Save(" & eventCode & ")"
            
        Case (visEvtPage + visEvtAdd)
            strDumpMsg = "Page Add(" & eventCode & ")"
            
        Case visEvtCodeShapeDelete
            strDumpMsg = "Shape Deleted(" & eventCode & ")"
            
        Case Else
            strDumpMsg = "Other(" & eventCode & ")"
   End Select
   
   ' Display the event name and code
   UserForm1.TextBox1.Text = strDumpMsg
          
End Sub


